Public Sub Add_Document()
    tvTreeView.Nodes.Clear()
    'Set the Document Type
    tvTreeView.Nodes.Add("Explorer1")
    'Set the Documents
    tvTreeView.SelectedNode = tvTreeView.Nodes.Item(0)
    tvTreeView.SelectedNode.Nodes.Add("Read Me File")
    tvTreeView.SelectedNode.Nodes.Add("EULA")
    tvTreeView.ExpandAll()
    tvTreeView.ShowLines = True
End Sub

Private Sub tvTreeView_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvTreeView.AfterSelect
    Dim set_File As String
    'Do not execute code if this is the select to build the tree
    If e.Node.Text <> "Explorer1" Then
        set_File = String.Concat("f:\temp\", e.Node.Text, ".txt")
        FileOpen(1, set_File, OpenMode.Input)
        'ToDo: add code to process the opened file
        txtInput.Text = InputString(1, CInt(LOF(1)))
        FileClose(1)
    End If
End Sub
